BEGIN "TESTPG"
REQUIRE "HPMGRN.SAI[HDR,HE]" SOURCE_FILE;

INTEGER I,J;
DDINIT;
SCREEN(-.1,-.1,10.1,10.1);
LITEN;
FOR J←0 STEP 1 UNTIL 9 DO
FOR I←(J LAND 1) STEP 2 UNTIL 9 DO RECTAN(I,J,I+1,J+1);
FOR I←0,9 DO RECTAN(0,I,10,I+1);
FOR I←0,9 DO RECTAN(I,0,I+1,10);
DRKEN;
FOR I←1 STEP 1 UNTIL 9 DO RECTAN(I-.05,0,I+.05,10);
FOR I←1 STEP 1 UNTIL 9 DO RECTAN(0,I-.05,10,I+.05);
LITEN;
FOR I←0,10 DO RECTAN(I-.05,0,I+.05,10);
FOR I←0,10 DO RECTAN(0,I-.05,10,I+.05);
DPYUP(3);

END "TESTPG"